﻿Public Class NewToolForm

    Public ToolID As String               '工具ID
    Public ToolType As Integer            '工具の種類（1:フェースミル/2:スクウェアエンドミル/3:ボールエンドミル）
    Public ToolDiameter As Double         '工具系
    Public CuttingLength As Double        '有効刃長
    Public ToolLength As Double           '工具長
    Public FlutesNum As Integer           '刃数
    Public ToolMaterial As Integer        '工具素材（1:カーバイド/2:CBN/3:セラミック/4:HSS）
    Public Coating As Integer             'コーティング素材（1:あり/0:なし）
    Public ShankDiameter As Double         'シャンク径


    Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
        ToolID = TextBoxToolID.Text
        ToolType = ComboBoxToolType.SelectedIndex
        ToolDiameter = CDbl(TextBoxToolDiameter.Text)
        CuttingLength = CDbl(TextBoxCuttingLength.Text)
        ToolLength = CDbl(TextBoxToolLength.Text)
        FlutesNum = CInt(TextBoxFlutesNumber.Text)
        ToolMaterial = ComboBoxToolMaterial.SelectedIndex
        Coating = ComboBoxCoating.SelectedIndex
        ShankDiameter = CDbl(TextBoxShankDiameter.Text)

        Me.Close()
    End Sub

 
    Private Sub ComboBoxToolType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxToolType.SelectedIndexChanged

    End Sub

    Private Sub NewToolForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class